Net Power 2000 February/NetCD2.iso/Patch/age/age2cpfix.exe/data/GAMEDATA.DRS/Unnamed File 000041.bina

Text File | 1999-11-11 | 5.1 KB | 246 lines

;make sure we have allies
(defrule
    (difficulty < easy)
    (game-time < 30)
    (or
        (player-computer any-ally)
        (player-human any-ally)
    )
=>
    (set-goal personality NOTICE)
    (disable-self)
)

(defrule
    (game-time > 30)
    (not (player-in-game any-ally) )
=>
    (set-goal personality 0)
    (disable-self)
)

(defrule
    (taunt-detected any-ally 221)
=>
    (set-goal rush-control 3)
    (set-goal personality 0)
    (acknowledge-taunt this-any-ally 221)
    (disable-self)
)

(defrule
    (goal personality NOTICE)
=>
    (set-goal personality 1)
    (chat-to-player-using-id every-ally 22401)    ;221
    (disable-self)
)

;don't rush if we're a feeder also no wonder
(defrule
    (goal personality 1)
    (current-age < imperial-age)
    (not (goal rush-control FEEDING) )
=>
    (set-goal rush-control FEEDING)
)

(defrule
    (goal personality 1)
    (goal wonder-attempt POSSIBLE)
=>
    (set-goal wonder-attempt NO)
)

(defrule
    (goal personality 1)
    (or
        (and
            (current-age == feudal-age)
            (players-current-age any-ally >= castle-age)
        )
        (and
            (current-age == castle-age)
            (players-current-age any-ally == imperial-age)
        )
    )
=>
    (set-goal upgrade-conflict NOTICE)
)

(defrule
    (goal personality 1)
    (building-type-count market > 0)
    (players-population any-ally > 10)
=>
    (chat-to-player-using-id every-ally 22072)
    (chat-to-player-using-id every-ally 22073)
        ;"I shall tribute to thee as many resources as I can muster."
        ;"Go forth and thrash our opponents!"
    (disable-self)
)

;stop being a feeder if your allies are weenies
(defrule
    (goal personality 1)
    (game-time > 900)
    (or
        (players-population every-ally <= 10)
        (not (player-in-game any-ally) )
    )
=>
    (set-goal personality 20)
    (set-goal rush-control 4)
    (chat-to-player-using-id every-ally 22074)
        ;"Whoa, I'll not feed such puny allies! 'Tis every man for himself!"
    (disable-self)
)

    #load-if-not-defined TEAMS-LOCKED
    (defrule
        (goal personality 20)
        (difficulty <= hard)
        (players-stance any-human ally)
    =>
        (chat-to-player-using-id every-ally 22075)
            ;"In fact, I'm switching sides! Fare thee well, losers."
        (set-stance every-computer ally)
        (set-stance this-any-human enemy)
        (set-goal personality 10)
        (disable-self)
    )
    #end-if

;***********************
;TRIBUTE
(defrule
    (goal personality 1)
    (goal 29 NO)
=>
    (set-goal 29 YES)    ; ok to tribute!
)

(defrule
    (goal personality 1)
    (or
        (goal upgrade-conflict NOTICE)
        (town-under-attack)
    )
=>
    (set-goal 29 NO)    ; NOT ok to tribute!
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (taunt-detected any-ally 4)
    (wood-amount > 100)
    (not (goal resource-needed WOOD) )
=>
    (release-escrow wood)
    (tribute-to-player this-any-ally wood 100)
    (acknowledge-taunt this-any-ally 4)
    (chat-local-to-self "Tribute wood")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (taunt-detected any-ally 3)
    (food-amount > 100)
    (not (goal resource-needed FOOD) )
=>
    (release-escrow food)
    (tribute-to-player this-any-ally food 100)
    (acknowledge-taunt this-any-ally 3)
    (chat-local-to-self "Tribute food")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (taunt-detected any-ally 5)
    (gold-amount > 100)
    (not (goal resource-needed GOLD) )
=>
    (release-escrow gold)
    (tribute-to-player this-any-ally gold 100)
    (acknowledge-taunt this-any-ally 5)
    (chat-local-to-self "Tribute gold")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (taunt-detected any-ally 6)
    (stone-amount > 100)
    (not (goal resource-needed STONE) )
=>
    (release-escrow stone)
    (tribute-to-player this-any-ally stone 100)
    (acknowledge-taunt this-any-ally 6)
    (chat-local-to-self "Tribute stone")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (timer-triggered t-tribute)
    (player-in-game any-ally)
    (wood-amount > 800)
    (not (goal resource-needed WOOD) )
=>
    (release-escrow wood)
    (tribute-to-player this-any-ally wood 100)
    (chat-to-player-using-id this-any-ally 22076)
        ;"Here art some wood!"
    (chat-local-to-self "Tribute wood")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (timer-triggered t-tribute)
    (player-in-game any-ally)
    (food-amount > 800)
    (not (goal resource-needed FOOD) )
=>
    (release-escrow food)
    (tribute-to-player this-any-ally food 100)
    (chat-to-player-using-id this-any-ally 22077)
        ;"Here art some food!"
    (chat-local-to-self "Tribute food")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (timer-triggered t-tribute)
    (player-in-game any-ally)
    (gold-amount > 800)
    (not (goal resource-needed GOLD) )
=>
    (release-escrow gold)
    (tribute-to-player this-any-ally gold 100)
    (chat-to-player-using-id this-any-ally 22078)
        ;"Here art some gold!"
    (chat-local-to-self "Tribute gold")
)

(defrule
    (goal personality 1)
    (goal 29 YES)
    (timer-triggered t-tribute)
    (player-in-game any-ally)
    (stone-amount > 800)
    (not (goal resource-needed STONE) )
=>
    (release-escrow stone)
    (tribute-to-player this-any-human ally 100)
    (chat-to-player-using-id this-any-ally 22079)
        ;"Here art some stone!"
    (chat-local-to-self "Tribute stone")
)